home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / patches / ami301c.zip / IMPRCOPY.SM$ / IMPRCOPY.SMM
INI File  |  1993-05-13  |  19KB  |  1,257 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MACRO.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Apple LaserWriter Plus
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Collect and copy information from Improv
  19.     
  20.     
  21.     
  22.     
  23.     737314564
  24.     22
  25.     731818190
  26.     392
  27.     6
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Table Text
  57.     5
  58.     [fnt]
  59.         Arial
  60.         240
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         272
  103.         1
  104.         3
  105.         .
  106.         ,
  107.         $
  108.     Table Text
  109.     0
  110.     0
  111. [frm]
  112.     1
  113.     1573060
  114.     360
  115.     9240
  116.     2191
  117.     10381
  118.     0
  119.     1
  120.     1
  121.     1 0 0 0 0 0 0
  122.     0
  123.     16777215
  124.     3
  125.     0
  126.     6400
  127.     0 0
  128.     [frmlay]
  129.         9520
  130.         1831
  131.         1
  132.         0
  133.         0
  134.         1
  135.         9240
  136.         0
  137.         0
  138.         2
  139.         0
  140.         0
  141.         0
  142.         0
  143.         1
  144.         360
  145.         1886
  146.         0
  147.     [tbl]
  148.          3 1 284 86 1440 86 1 43 43
  149.         [h]
  150.              0 280 86 2 0 1 0
  151.              1 280 86 2 0 1 0
  152.              2 280 86 2 0 1 0
  153.         [e]
  154.         [w]
  155.              0 1728 60 6 0
  156.         [e]
  157.         [data]
  158.              0 0 8 0 0 0 0 1 0 0 0 0
  159. <+@><:S+-1><:f240, Arial MT,0,0,0>Clarke
  160.  
  161. >
  162.              1 0 8 0 0 0 0 1 0 0 0 0
  163. <+@><:S+-1><:f240, Arial MT,0,0,0>Aubry
  164.  
  165. >
  166.              2 0 8 0 0 0 0 1 0 0 0 0
  167. <+@><:S+-1><:f240, Arial MT,0,0,0>Kaplan
  168.  
  169. >
  170.         [e]
  171.     [tble]
  172. [l1]
  173.     0
  174. [edoc]
  175. <:#284,9360>' Macro by Charlie Pappas
  176.  
  177. <:#284,9360>
  178.  
  179. <:#568,9360>define    CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  180.  
  181. <:#284,9360>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)
  182.  
  183. <:#568,9360>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  184.  
  185. <:#284,9360>define    WM_SETFONT    0x30
  186.  
  187. <:#284,9360>declare createdlgfont()
  188.  
  189. <:#284,9360>declare setfont(hdlg, id)
  190.  
  191. <:#284,9360>declare deletefont()
  192.  
  193. <:#284,9360>
  194.  
  195. <:#568,9360>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  196.  
  197. <:#284,9360>Define SetFocus() DllCall("user,SetFocus,HH",%1)
  198.  
  199. <:#284,9360>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  200.  
  201. <:#284,9360>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)
  202.  
  203. <:#568,9360>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)
  204.  
  205. <:#284,9360>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  206.  
  207. <:#284,9360>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)
  208.  
  209. <:#284,9360>define SWP_NOMOVE    0x0002
  210.  
  211. <:#284,9360>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
  212.  
  213. <:#284,9360>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
  214.  
  215. <:#568,9360>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  216.  
  217. <:#284,9360>
  218.  
  219. <:#284,9360>Define WM_SETREDRAW            0x000B
  220.  
  221. <:#284,9360>define WM_COMMAND        0x0111
  222.  
  223. <:#284,9360>define SC_RESTORE      0xF120
  224.  
  225. <:#284,9360>define WM_SYSCOMMAND       0x0112
  226.  
  227. <:#284,9360>
  228.  
  229. <:#284,9360>define MyAppName    "<:f240,BArial,255,0,0>Collect<:f><:f240,BArial,255,0,0> & Copy<:f>"
  230.  
  231. <:#284,9360>define MsgBox(msgtext)    Message(%1, myappname)
  232.  
  233. <:#284,9360>
  234.  
  235. <:#284,9360>declare newnow()
  236.  
  237. <:#284,9360>declare done()
  238.  
  239. <:#284,9360>declare insertdata(hdlg, id, val)
  240.  
  241. <:#284,9360>declare hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  242.  
  243. <:#284,9360>
  244.  
  245. <:#284,9360>declare showami(rect)
  246.  
  247. <:#284,9360>declare hideami(rect)
  248.  
  249. <:#284,9360>declare modframe()
  250.  
  251. <:#284,9360>declare setpagelayout()
  252.  
  253. <:#284,9360>declare winproc(hdlg, id, val)
  254.  
  255. <:#284,9360>declare box2(hdlg, id, val)
  256.  
  257. <:#284,9360>declare freeglobals()
  258.  
  259.  
  260. @Function@function bits()
  261.  
  262. appname = "IMPROV"
  263.  
  264. if appname = "123W"
  265.  
  266.     AppTitleBarName = "<:f240,BArial,255,0,0>Lotus 1-2-3 Release 4<:f>"
  267.  
  268.     LotusIniAppName = "123W"
  269.  
  270.     ClassName = "123WParent"
  271.  
  272. else
  273.  
  274.     AppTitleBarName = "Lotus Improv"
  275.  
  276.     LotusIniAppName = "IMPROV"
  277.  
  278.     ClassName = "bbw:0"
  279.  
  280. endif
  281.  
  282. hwnd = hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  283.  
  284. if hwnd = 0
  285.  
  286.     return 0
  287.  
  288. endif
  289.  
  290.  
  291. dim rect(4)
  292.  
  293. onerror endit
  294.  
  295. oncancel endit
  296.  
  297.  
  298. allocglobalvar("bits", 1)
  299.  
  300. setglobalvar("bits", 0)
  301.  
  302. allocglobalvar("bitsapp", 1)
  303.  
  304. setglobalvar("bitsapp", lotusiniappname)
  305.  
  306. allocglobalvar("framecount", 1)
  307.  
  308. setglobalvar("framecount", 0)
  309.  
  310. allocglobalvar("lotusapphwnd", 1)
  311.  
  312. setglobalvar("lotusapphwnd", hwnd)
  313.  
  314. hwndpro = findwindow("amiprownda", 0)
  315.  
  316. if isiconic(hwnd)
  317.  
  318.     appsendmessage(findwindow("Progman", 0), WM_SYSCOMMAND, SC_RESTORE, 0)
  319.  
  320.     appmaximize(AppTitleBarName)
  321.  
  322. endif
  323.  
  324. showwindow(hwndpro, 0)
  325.  
  326. newnow()
  327.  
  328. rmac = getrunningmacrofile$()
  329.  
  330. setdlgcallback(0, "{rmac}!initdlg")
  331.  
  332. setdlgcallback(71, "{rmac}!insertdata")
  333.  
  334. runlater("{rmac}!setappfocus", 0.1)
  335.  
  336. dialogbox(".", "box1")
  337.  
  338. setdlgcallback(0, "{rmac}!initdlg2")
  339.  
  340. dlgkeyinterrupt(<[>f1], "{rmac}!helpme")
  341.  
  342. box = dialogbox(".", lotusiniappname)
  343.  
  344. if box = 1
  345.  
  346.     showwindow(hwndpro, 5)
  347.  
  348. else
  349.  
  350.     showwindow(hwndpro, 5)
  351.  
  352.     activateapp(AppTitleBarName)
  353.  
  354. endif
  355.  
  356. freeglobals()
  357.  
  358. return 1
  359.  
  360. endit:
  361.  
  362. showwindow(hwndpro, 5)
  363.  
  364. activateapp(AppTitleBarName)
  365.  
  366. freeglobals()
  367.  
  368. end function
  369.  
  370.  
  371. @Function@function setappfocus()
  372.  
  373. setfocus(getglobalvar$("lotusapphwnd"))
  374.  
  375. end function
  376.  
  377.  
  378.  
  379. @Function@function helpme()
  380.  
  381. WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 145)
  382.  
  383. end function
  384.  
  385.  
  386.  
  387. @Function@function freeglobals()
  388.  
  389. freeglobalvar("framecount")
  390.  
  391. freeglobalvar("bits")
  392.  
  393. freeglobalvar("lotusapphwnd")
  394.  
  395. freeglobalvar("bitsapp")
  396.  
  397. deletefont()
  398.  
  399. end function
  400.  
  401.  
  402.  
  403. @Function@function initdlg2(hdlg, id, value)
  404.  
  405. for i = 1000 to 1006
  406.  
  407.     setfont(hdlg, i)
  408.  
  409. next
  410.  
  411. end function
  412.  
  413.  
  414.  
  415. @Function@function initdlg(hdlg, id, value)
  416.  
  417. for i = 1000 to 1006
  418.  
  419.     setfont(hdlg, i)
  420.  
  421. next
  422.  
  423.  
  424. dim rect(4)
  425.  
  426. GetWindowRect(hdlg, &rect)
  427.  
  428. x = rect(1)
  429.  
  430. y = rect(2)
  431.  
  432. cx = rect(3) - x
  433.  
  434. cy = rect(4) - y
  435.  
  436. setwindowpos(hdlg, -1, x, y, cx, cy, 0)
  437.  
  438. end function
  439.  
  440.  
  441.  
  442. @Function@function insertdata(hdlg, id, val)
  443.  
  444. setappfocus()
  445.  
  446. <+@>hwnd = getglobalvar$("lotusapphwnd")
  447.  
  448. appname = getglobalvar$("bitsapp")
  449.  
  450. <+@>AppSendMessage(hwnd, WM_COMMAND, 49, "")
  451.  
  452. activateapp("")
  453.  
  454.  
  455. if getinfo(217, 24, paste) <<<;> 1
  456.  
  457.     return 0
  458.  
  459. endif
  460.  
  461. if getmode() <<<;> 1
  462.  
  463.     layoutmode()
  464.  
  465.     if getmode() <<<;> 1
  466.  
  467.         return 0
  468.  
  469.     endif
  470.  
  471. endif
  472.  
  473. count = getglobalvar$("framecount")
  474.  
  475. count = count + 1
  476.  
  477. if count = 6
  478.  
  479.     PageBreak(1  )
  480.  
  481.     count = 1
  482.  
  483. endif
  484.  
  485. setglobalvar("framecount", count)
  486.  
  487. pastespecial("<:f240,BArial,255,0,0>OLE Link<:f>")
  488.  
  489. if isframeselected() <<<;> 1
  490.  
  491.     pastespecial("<:f240,BArial,255,0,0>OLE Embed<:f>")
  492.  
  493. endif
  494.  
  495. if isframeselected()
  496.  
  497.     modframe()
  498.  
  499.     type("<[>esc]")
  500.  
  501. endif
  502.  
  503. endit:
  504.  
  505. setappfocus()
  506.  
  507. END FUNCTION
  508.  
  509.  
  510.  
  511. @Function@DIALOG    box1
  512.  
  513. <:f240,BArial,255,0,0>-2134376448    9    170    210    185    38    ""    ""    "<:f><:f240,BArial,255,0,0>Collect<:f><:f240,BArial,255,0,0> & Copy<:f><:f240,BArial,255,0,0>"
  514.  
  515. <:f240,BArial,255,0,0>FONT    8    "Helv"
  516.  
  517. <:f240,BArial,255,0,0>118    3    63    14    71    1342373889    "button"    "&Copy to Ami Pro"    0 
  518.  
  519. <:f240,BArial,255,0,0>118    19    63    14    2    1342373888    "button"    "Done"    0 
  520.  
  521. <:f240,BArial,255,0,0>10    2    87    10    1000    1342177280    "static"    "Select the range or chart"    0 
  522.  
  523. <:f240,BArial,255,0,0>10    9    77    10    1001    1342177280    "static"    "you want to print."    0 
  524.  
  525. <:f240,BArial,255,0,0>10    18    81    10    1002    1342177280    "static"    "Choose Copy to Ami Pro."    0 
  526.  
  527. <:f240,BArial,255,0,0>10    27    103    10    1003    1342177280    "static"    "Repeat these steps if you want."    0 
  528.  
  529. <:f240,BArial,255,0,0>2    2    6    10    1004    1342177280    "static"    "1."    0 
  530.  
  531. <:f240,BArial,255,0,0>2    18    6    10    1005    1342177280    "static"    "2."    0 
  532.  
  533. <:f240,BArial,255,0,0>2    27    6    10    1006    1342177280    "static"    "3."    0 
  534.  
  535. END DIALOG
  536.  
  537.  
  538.  
  539. @Function@DIALOG    improv
  540.  
  541. <:f240,BArial,255,0,0>-2134376448    9    90    50    200    67    ""    "amidialog"    "<:f><:f240,BArial,255,0,0>Collect<:f><:f240,BArial,255,0,0> & Copy<:f><:f240,BArial,255,0,0>"
  542.  
  543. <:f240,BArial,255,0,0>FONT    8    "Helv"
  544.  
  545. <:f240,BArial,255,0,0>126    3    68    14    1    1342373889    "button"    "&Switch to Ami Pro"    0 
  546.  
  547. <:f240,BArial,255,0,0>126    19    68    14    2    1342373888    "button"    "Done"    0 
  548.  
  549. <:f240,BArial,255,0,0>3    2    117    10    1000    1342177280    "static"    "You have selected some data to be"    0 
  550.  
  551. <:f240,BArial,255,0,0>3    10    117    10    1001    1342177280    "static"    "included in an Ami Pro document."    0 
  552.  
  553. <:f240,BArial,255,0,0>3    18    117    10    1002    1342177280    "static"    "This data is hot-linked to its origin"    0 
  554.  
  555. <:f240,BArial,255,0,0>3    26    117    10    1003    1342177280    "static"    "worksheet."    0 
  556.  
  557. <:f240,BArial,255,0,0>3    38    117    10    1004    1342177280    "static"    "You may now continue to work in"    0 
  558.  
  559. <:f240,BArial,255,0,0>3    46    117    10    1005    1342177280    "static"    "Improv, or you may switch to Ami Pro"    0 
  560.  
  561. <:f240,BArial,255,0,0>3    54    117    10    1006    1342177280    "static"    "to arrange or format your document."    0 
  562.  
  563. END DIALOG
  564.  
  565.  
  566.  
  567. @Function@FUNCTION newnow()
  568.  
  569. @Outline3@defstyle=getprofilestring$("AmiPro", "<:f240,BArial,255,0,0>defstyle<:f>", "AMIPRO.INI")
  570.  
  571. if defstyle = ""
  572.  
  573.     defstyle = "<:f240,BArial,255,0,0>_default.sty<:f>"    ' use this style if not in amipro.ini
  574.  
  575. endif
  576.  
  577. New(defstyle  1 1024  )
  578.  
  579. fullpageview()
  580.  
  581. setpagelayout()
  582.  
  583. END FUNCTION
  584.  
  585.  
  586.  
  587. @Function@FUNCTION modframe()
  588.  
  589. count = getglobalvar$("framecount")
  590.  
  591. defstr width, length, left, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units;
  592.  
  593. getcurframeborders(&width, &length, &top, &leftx, &leftmarg, &topmarg, &rightmarg, &bottommarg, &units)
  594.  
  595. top = count * <:f240,BArial,255,0,0>1.60<:f> * 1440 ' math
  596.  
  597. FrameModInit( )
  598.  
  599. FrameModLines(0 1 1 0 16777215 0 0 0 0 0  )
  600.  
  601. FrameModType((128 + 536870976) 0 ""   )
  602.  
  603. FrameModBorders(3816, 2160, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)
  604.  
  605. FrameModFinish( )
  606.  
  607. END FUNCTION
  608.  
  609.  
  610. @Function@function setpagelayout()
  611.  
  612. ModLayoutInit(512  )
  613.  
  614. ModLayoutRightPage(1440 1440 1440 1440 1 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640  )
  615.  
  616. ModLayoutRightLines(0 1 0 1 2  )
  617.  
  618. country = GetProfileString$(<:f240,BArial,255,0,0>"intl"<:f>, <:f240,BArial,255,0,0>"sCountry"<:f>)
  619.  
  620. if country <<<;> <:f240,BArial,255,0,0>"United <:f240,BArial,255,0,0>States" 
  621. <:f>and country <<<;> <:f240,BArial,255,0,0>"Canada"
  622.  
  623.     ModLayoutPageSize(16833 11908 1 4  ) ' A4
  624.  
  625. else
  626.  
  627.     ModLayoutPageSize(15840 12240 1 1  ) ' Letter
  628.  
  629. endif
  630.  
  631. ModLayoutRightHeader(1440 792 1440 72 1 0 1 1440 10465 2 2 4680 3 9360  )
  632.  
  633. ModLayoutRightFooter(1440 72 1440 792 1 0 1 1440 10465 2 2 4680 3 9360  )
  634.  
  635. ModLayoutFinish( )
  636.  
  637. END FUNCTION
  638.  
  639. @Function@
  640.  
  641. @Function@FUNCTION hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  642.  
  643. ' loads a Lotus Appliction
  644.  
  645. Define FindWindowLoadLotusApp() DllCall("user,FindWindow,HCC", %1, 0)
  646.  
  647. ONERROR endit
  648.  
  649. ONCANCEL endit
  650.  
  651. hwnd = FindWindowLoadLotusApp(classname)
  652.  
  653. if hwnd <<<;> 0
  654.  
  655.     ActivateApp(AppTitleBarName)
  656.  
  657.     RETURN hwnd
  658.  
  659. endif
  660.  
  661. app = GetProfileString$(<:f240,BArial,255,0,0>"Lotus <:f240,BArial,255,0,0>Applications"<:f>, LotusIniAppName, "lotus.ini")
  662.  
  663. if app <<<;> ""
  664.  
  665.     appexecname = strfield$(app, 1, ".")
  666.  
  667.     hwnd = FindWindowLoadLotusApp(classname)
  668.  
  669. <+@>    amidir = getamidirectory$()
  670.  
  671.     if hwnd = 0
  672.  
  673.         if Exec("{appexecname}.exe", "") << 32
  674.  
  675. <+@>            macro = "{amidir}lotuspal.smm!salesmsg"
  676.  
  677. <+@>            calli macro(5)
  678.  
  679.             goto endit
  680.  
  681.         endif
  682.  
  683.     endif
  684.  
  685.     hwnd = findwindowLoadLotusApp(classname)
  686.  
  687.     if hwnd = 0
  688.  
  689.         goto endit
  690.  
  691.     endif
  692.  
  693. else
  694.  
  695. <+@>    macro = "{amidir}lotuspal.smm!salesmsg"
  696.  
  697. <+@>    calli macro(5)
  698.  
  699.     goto endit
  700.  
  701. endif
  702.  
  703. ActivateApp(AppTitleBarName)
  704.  
  705. endit:
  706.  
  707. RETURN hwnd
  708.  
  709. END FUNCTION
  710.  
  711. @Function@
  712. @Function@
  713.  
  714. @Function@function createdlgfont()
  715.  
  716. ignorekeyboard(1)
  717.  
  718. rmac = getrunningmacrofile$()
  719.  
  720. hfont = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, <:f240,BArial,255,0,0>"Helv"<:f>)
  721.  
  722. if hfont <;> 1
  723.  
  724.     AllocGlobalVar("{rmac}hfont", 1)
  725.  
  726.     SetGlobalVar("{rmac}hfont", hFont)
  727.  
  728.     Return hfont
  729.  
  730. endif
  731.  
  732. End Function
  733.  
  734.  
  735.  
  736. @Function@function deletefont()
  737.  
  738. ignorekeyboard(1)
  739.  
  740. rmac = getrunningmacrofile$()
  741.  
  742. AllocGlobalVar("{rmac}hfont", 1)
  743.  
  744. hfont = getglobalvar$("{rmac}hfont")
  745.  
  746. if hfont <;> 1
  747.  
  748.     deleteobject(hfont)
  749.  
  750.     freeglobalvar("{rmac}hfont")
  751.  
  752. endif
  753.  
  754. end function
  755.  
  756.  
  757.  
  758. @Function@function setfont(hdlg, id)
  759.  
  760. ignorekeyboard(1)
  761.  
  762. rmac = getrunningmacrofile$()
  763.  
  764. AllocGlobalVar("{rmac}hfont", 1)
  765.  
  766. hfont = getglobalvar$("{rmac}hfont")
  767.  
  768. if hfont << 1
  769.  
  770.     if createdlgfont() << 1
  771.  
  772.         return 0
  773.  
  774.     endif
  775.  
  776. endif
  777.  
  778. hfont = getglobalvar$("{rmac}hfont")
  779.  
  780. SendMessage(GetDlgITem(Hdlg, id), WM_SETFONT, hfont, 0)
  781.  
  782. end function
  783.  
  784.  
  785.  
  786. >
  787.  
  788. [Embedded]
  789. 00012711
  790. >
  791. [macsum] 16
  792. bits 0 0 10 43
  793. setappfocus 1145 0 1 100
  794. helpme 1229 0 1 105
  795. freeglobals 1382 0 1 110
  796. initdlg2 1498 3 2 119
  797. initdlg 1651 3 7 126
  798. insertdata 2014 3 4 141
  799. box1 2561 0 -1 177
  800. improv 3151 0 -1 192
  801. newnow 3869 0 2 207
  802. modframe 4043 0 12 218
  803. setpagelayout 4329 0 2 230
  804. hActivateLotusApp 4818 3 6 246
  805. createdlgfont 5473 0 3 284
  806. deletefont 5697 0 3 296
  807. setfont 5877 2 3 308
  808. [macse]
  809. 14 bits
  810. 7 "IMPROV"
  811. 8 1
  812. 6 1
  813. 7 "123W"
  814. 18 0
  815. 11 00000141
  816. 7 "Lotus 1-2-3 Release 4"
  817. 8 2
  818. 7 "123W"
  819. 8 3
  820. 7 "123WParent"
  821. 8 4
  822. 10 00000197
  823. 7 "Lotus Improv"
  824. 8 2
  825. 7 "IMPROV"
  826. 8 3
  827. 7 "bbw:0"
  828. 8 4
  829. 16 hActivateLotusApp "{2}" "{3}" "{4}"
  830. 13
  831. 8 5
  832. 6 5
  833. 5 0
  834. 18 0
  835. 11 00000287
  836. 5 0
  837. 15
  838. 9
  839. 5 4
  840. 21 6 [X]
  841. 20 00001068
  842. 19 00001068
  843. 0 271 "bits" 1
  844. 0 264 "bits" 0
  845. 0 271 "bitsapp" 1
  846. 0 264 "bitsapp" "{3}"
  847. 0 271 "framecount" 1
  848. 0 264 "framecount" 0
  849. 0 271 "lotusapphwnd" 1
  850. 0 264 "lotusapphwnd" "{5}"
  851. 0 284 "user,FindWindow,HCC" "amiprownda" 0
  852. 13
  853. 8 7
  854. 0 284 "user,IsIconic,HH" "{5}"
  855. 13
  856. 11 00000683
  857. 0 284 "user,FindWindow,HCC" "Progman" 0
  858. 13
  859. 0 1036 [X] 274 61728 0
  860. 0 1029 "{2}"
  861. 0 284 "user,ShowWindow,HHH" "{7}" 0
  862. 16 newnow
  863. 0 802
  864. 13
  865. 8 8
  866. 0 41 0 "{8}!initdlg"
  867. 0 41 71 "{8}!insertdata"
  868. 0 285 "{8}!setappfocus" 0.1
  869. 0 26 "." "box1"
  870. 0 41 0 "{8}!initdlg2"
  871. 0 47 112 "{8}!helpme"
  872. 0 26 "." "{3}"
  873. 13
  874. 8 9
  875. 6 9
  876. 5 1
  877. 18 0
  878. 11 00000991
  879. 0 284 "user,ShowWindow,HHH" "{7}" 5
  880. 10 00001040
  881. 0 284 "user,ShowWindow,HHH" "{7}" 5
  882. 0 38 "{2}"
  883. 16 freeglobals
  884. 5 1
  885. 15
  886. 9
  887. 0 284 "user,ShowWindow,HHH" "{7}" 5
  888. 0 38 "{2}"
  889. 16 freeglobals
  890. 6 0
  891. 15
  892. 9
  893. 14 setappfocus
  894. 0 265 "lotusapphwnd"
  895. 13
  896. 0 284 "user,SetFocus,HH" [X]
  897. 6 0
  898. 15
  899. 9
  900. 14 helpme
  901. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  902. 13
  903. 0 798
  904. 13
  905. 0 16 [X] "HelpPack.hlp"
  906. 13
  907. 0 284 "user,WinHelp,HHCHJ" [X] [X] 1 145
  908. 6 0
  909. 15
  910. 9
  911. 14 freeglobals
  912. 0 266 "framecount"
  913. 0 266 "bits"
  914. 0 266 "lotusapphwnd"
  915. 0 266 "bitsapp"
  916. 16 deletefont
  917. 6 0
  918. 15
  919. 9
  920. 14 initdlg2
  921. 5 1000
  922. 8 4
  923. 5 1006
  924. 6 4
  925. 18 2
  926. 12 00000104
  927. 10 00000141
  928. 5 1
  929. 6 4
  930. 3 0
  931. 8 4
  932. 10 00000026
  933. 16 setfont "{0}" "{4}"
  934. 10 00000071
  935. 6 3
  936. 15
  937. 9
  938. 14 initdlg
  939. 5 1000
  940. 8 4
  941. 5 1006
  942. 6 4
  943. 18 2
  944. 12 00000103
  945. 10 00000140
  946. 5 1
  947. 6 4
  948. 3 0
  949. 8 4
  950. 10 00000025
  951. 16 setfont "{0}" "{4}"
  952. 10 00000070
  953. 5 4
  954. 21 5 [X]
  955. 0 284 "user,GetWindowRect,HHN" "{0}" &5
  956. 5 1
  957. 22 5
  958. 8 6
  959. 5 2
  960. 22 5
  961. 8 7
  962. 5 3
  963. 22 5
  964. 6 6
  965. 3 1
  966. 8 8
  967. 5 4
  968. 22 5
  969. 6 7
  970. 3 1
  971. 8 9
  972. 0 284 "user,SetWindowPos,HHHHHHHI" "{0}" -1 "{6}" "{7}" "{8}" "{9}" 0
  973. 6 3
  974. 15
  975. 9
  976. 14 insertdata
  977. 16 setappfocus
  978. 0 265 "lotusapphwnd"
  979. 13
  980. 8 4
  981. 0 265 "bitsapp"
  982. 13
  983. 8 5
  984. 0 1036 "{4}" 273 49 ""
  985. 0 38 ""
  986. 0 1313 217 24 155
  987. 13
  988. 5 1
  989. 18 1
  990. 11 00000180
  991. 5 0
  992. 15
  993. 9
  994. 0 29
  995. 13
  996. 5 1
  997. 18 1
  998. 11 00000269
  999. 2 210 1
  1000. 0 29
  1001. 13
  1002. 5 1
  1003. 18 1
  1004. 11 00000269
  1005. 5 0
  1006. 15
  1007. 9
  1008. 0 265 "framecount"
  1009. 13
  1010. 8 6
  1011. 6 6
  1012. 5 1
  1013. 3 0
  1014. 8 6
  1015. 6 6
  1016. 5 6
  1017. 18 0
  1018. 11 00000368
  1019. 2 357 1 1
  1020. 5 1
  1021. 8 6
  1022. 0 264 "framecount" "{6}"
  1023. 2 588 1 "OLE Link"
  1024. 0 800
  1025. 13
  1026. 5 1
  1027. 18 1
  1028. 11 00000470
  1029. 2 588 1 "OLE Embed"
  1030. 0 800
  1031. 13
  1032. 11 00000519
  1033. 16 modframe
  1034. 0 6 "[27]"
  1035. 16 setappfocus
  1036. 6 3
  1037. 15
  1038. 9
  1039. DIALOG box1
  1040. -2134376448 9 170 210 185 38 "" "" "Collect & Copy" 
  1041. FONT 8 "Helv" 
  1042. 118 3 63 14 71 1342373889 "button" "&Copy to Ami Pro" 0 
  1043. 118 19 63 14 2 1342373888 "button" "Done" 0 
  1044. 10 2 87 10 1000 1342177280 "static" "Select the range or chart" 0 
  1045. 10 9 77 10 1001 1342177280 "static" "you want to print." 0 
  1046. 10 18 81 10 1002 1342177280 "static" "Choose Copy to Ami Pro." 0 
  1047. 10 27 103 10 1003 1342177280 "static" "Repeat these steps if you want." 0 
  1048. 2 2 6 10 1004 1342177280 "static" "1." 0 
  1049. 2 18 6 10 1005 1342177280 "static" "2." 0 
  1050. 2 27 6 10 1006 1342177280 "static" "3." 0 
  1051. DIALOG improv
  1052. -2134376448 9 90 50 200 67 "" "amidialog" "Collect & Copy" 
  1053. FONT 8 "Helv" 
  1054. 126 3 68 14 1 1342373889 "button" "&Switch to Ami Pro" 0 
  1055. 126 19 68 14 2 1342373888 "button" "Done" 0 
  1056. 3 2 117 10 1000 1342177280 "static" "You have selected some data to be" 0 
  1057. 3 10 117 10 1001 1342177280 "static" "included in an Ami Pro document." 0 
  1058. 3 18 117 10 1002 1342177280 "static" "This data is hot-linked to its origin" 0 
  1059. 3 26 117 10 1003 1342177280 "static" "worksheet." 0 
  1060. 3 38 117 10 1004 1342177280 "static" "You may now continue to work in" 0 
  1061. 3 46 117 10 1005 1342177280 "static" "Improv, or you may switch to Ami Pro" 0 
  1062. 3 54 117 10 1006 1342177280 "static" "to arrange or format your document." 0 
  1063. 14 newnow
  1064. 0 286 "AmiPro" "defstyle" "AMIPRO.INI"
  1065. 13
  1066. 8 1
  1067. 6 1
  1068. 7 ""
  1069. 18 0
  1070. 11 00000113
  1071. 7 "_default.sty"
  1072. 8 1
  1073. 2 101 1 "{1}" 1 1024
  1074. 2 201 1
  1075. 16 setpagelayout
  1076. 6 0
  1077. 15
  1078. 9
  1079. 14 modframe
  1080. 0 265 "framecount"
  1081. 13
  1082. 8 1
  1083. 0 795 &2 &3 &5 &6 &7 &8 &9 &10 &11
  1084. 6 1
  1085. 5 1.60
  1086. 4 0
  1087. 5 1440
  1088. 4 0
  1089. 8 5
  1090. 2 421 1
  1091. 2 416 1 0 1 1 0 16777215 0 0 0 0 0
  1092. 5 128
  1093. 5 536870976
  1094. 3 0
  1095. 2 417 1 [X] 0 ""
  1096. 2 418 1 3816 2160 "{5}" "{6}" "{7}" "{8}" "{9}" "{10}" "{11}"
  1097. 2 420 1
  1098. 6 0
  1099. 15
  1100. 9
  1101. 14 setpagelayout
  1102. 2 361 1 512
  1103. 2 363 1 1440 1440 1440 1440 1 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640
  1104. 2 366 1 0 1 0 1 2
  1105. 0 286 "intl" "sCountry"
  1106. 13
  1107. 8 1
  1108. 6 1
  1109. 7 "United States"
  1110. 18 1
  1111. 6 1
  1112. 7 "Canada"
  1113. 18 1
  1114. 1 1
  1115. 11 00000325
  1116. 2 362 1 16833 11908 1 4
  1117. 10 00000350
  1118. 2 362 1 15840 12240 1 1
  1119. 2 364 1 1440 792 1440 72 1 0 1 1440 10465 2 2 4680 3 9360
  1120. 2 365 1 1440 72 1440 792 1 0 1 1440 10465 2 2 4680 3 9360
  1121. 2 376 1
  1122. 6 0
  1123. 15
  1124. 9
  1125. 14 hActivateLotusApp
  1126. 20 00000631
  1127. 19 00000631
  1128. 0 284 "user,FindWindow,HCC" "{2}" 0
  1129. 13
  1130. 8 4
  1131. 6 4
  1132. 5 0
  1133. 18 1
  1134. 11 00000147
  1135. 0 38 "{0}"
  1136. 6 4
  1137. 15
  1138. 9
  1139. 0 286 "Lotus Applications" "{1}" "lotus.ini"
  1140. 13
  1141. 8 5
  1142. 6 5
  1143. 7 ""
  1144. 18 1
  1145. 11 00000559
  1146. 0 20 "{5}" 1 "."
  1147. 13
  1148. 8 6
  1149. 0 284 "user,FindWindow,HCC" "{2}" 0
  1150. 13
  1151. 8 4
  1152. 0 798
  1153. 13
  1154. 8 7
  1155. 6 4
  1156. 5 0
  1157. 18 0
  1158. 11 00000458
  1159. 0 22 "{6}.exe" ""
  1160. 13
  1161. 5 32
  1162. 18 5
  1163. 11 00000458
  1164. 7 "{7}lotuspal.smm!salesmsg"
  1165. 8 8
  1166. 16 "{8}" 5
  1167. 10 00000631
  1168. 0 284 "user,FindWindow,HCC" "{2}" 0
  1169. 13
  1170. 8 4
  1171. 6 4
  1172. 5 0
  1173. 18 0
  1174. 11 00000546
  1175. 10 00000631
  1176. 10 00000619
  1177. 7 "{7}lotuspal.smm!salesmsg"
  1178. 8 8
  1179. 16 "{8}" 5
  1180. 10 00000631
  1181. 0 38 "{0}"
  1182. 6 4
  1183. 15
  1184. 9
  1185. 6 3
  1186. 15
  1187. 9
  1188. 14 createdlgfont
  1189. 0 32 1
  1190. 0 802
  1191. 13
  1192. 8 1
  1193. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1194. 13
  1195. 8 2
  1196. 6 2
  1197. 5 1
  1198. 18 3
  1199. 11 00000212
  1200. 0 271 "{1}hfont" 1
  1201. 0 264 "{1}hfont" "{2}"
  1202. 6 2
  1203. 15
  1204. 9
  1205. 6 0
  1206. 15
  1207. 9
  1208. 14 deletefont
  1209. 0 32 1
  1210. 0 802
  1211. 13
  1212. 8 1
  1213. 0 271 "{1}hfont" 1
  1214. 0 265 "{1}hfont"
  1215. 13
  1216. 8 2
  1217. 6 2
  1218. 5 1
  1219. 18 3
  1220. 11 00000168
  1221. 0 284 "gdi,DeleteObject,HH" "{2}"
  1222. 0 266 "{1}hfont"
  1223. 6 0
  1224. 15
  1225. 9
  1226. 14 setfont
  1227. 0 32 1
  1228. 0 802
  1229. 13
  1230. 8 3
  1231. 0 271 "{3}hfont" 1
  1232. 0 265 "{3}hfont"
  1233. 13
  1234. 8 4
  1235. 6 4
  1236. 5 1
  1237. 18 5
  1238. 11 00000170
  1239. 16 createdlgfont
  1240. 13
  1241. 5 1
  1242. 18 5
  1243. 11 00000170
  1244. 5 0
  1245. 15
  1246. 9
  1247. 0 265 "{3}hfont"
  1248. 13
  1249. 8 4
  1250. 0 44 "{0}" "{1}"
  1251. 13
  1252. 0 284 "user,SendMessage,HHHHJ" [X] 48 "{4}" 0
  1253. 6 2
  1254. 15
  1255. 9
  1256. 00012736
  1257.